home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / contrib / deleq.sty < prev    next >
Encoding:
Text File  |  1995-03-15  |  4.4 KB  |  100 lines
  1. %% 
  2. %% This is file `deleq.sty', generated 
  3. %% on <1995/3/4> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% deleq.dtx  (with options: `paketkod')
  8. %% 
  9. %% Copyright (c) 1994 by Mats Dahlgren <matsd@physchem.kth.se>. 
  10. %% All rights reserved. See the file `deleq.ins' for information 
  11. %% on how you may (re-)distribute the `deleq' package files. 
  12. %% 
  13. \NeedsTeXFormat{LaTeX2e}[1994/06/01]
  14. \ProvidesPackage{deleq}[1994/12/27 v.4.1 Partial equation numbering]
  15. \typeout{deleq.sty included, version 4.1 (Dec. 27, 1994).  (c) 1994 by Mats Dahlgren}
  16. \def\deleqver{\texttt{deleq} version 4.1 (Dec.~27, 1994)}
  17. \newcounter{deleq}[equation]
  18. \newcounter{Deleq}
  19. \newcount\@deqpen
  20. \newcount\@deqcnt
  21. \renewcommand{\thedeleq}{\ensuremath{\theequation\mathrm{\aLph{deleq}}}}
  22. \renewcommand{\theDeleq}{\ensuremath{\mathrm{\aLph{Deleq}}}}
  23. \def\@deleqnnum{(\thedeleq)}
  24. \def\aLph#1{\@aLph{\@nameuse{c@#1}}}
  25. \def\@aLph#1{\ifcase#1\or a\or b\or c\or d\or e\or f\or g\or h\or i\or j\or
  26.    k\or l\or m\or n\or o\or p\or q\or r\or s\or t\or u\or v\or w\or x\or y\or
  27.    z\else\@ctrerr\fi}
  28. \def\@deqncr{{\ifnum0=`}\fi\@ifstar{\global\@deqpen\@M
  29.     \@ydeqncr}{\global\@deqpen\interdisplaylinepenalty \@ydeqncr}}
  30. \def\@ydeqncr{\@ifnextchar [{\@xdeqncr}{\@xdeqncr[\z@]}}
  31. \def\@xdeqncr[#1]{\ifnum0=`{\fi}\@@deqncr
  32.    \noalign{\penalty\@deqpen\vskip\jot\vskip #1\relax}}
  33. \def\@@deqncr{\let\@tempa\relax
  34.     \ifcase\@deqcnt \def\@tempa{& & &}\or \def\@tempa{& &}%
  35.       \else \def\@tempa{&}\fi
  36.      \@tempa \if@eqnsw\@deleqnnum\stepcounter{deleq}\fi
  37.      \global\@eqnswtrue\global\@deqcnt\z@\cr}
  38. \newcommand{\nydeleqno}{\refstepcounter{equation}\refstepcounter{deleq}
  39.   \let\@currentlabel\thedeleq \eqno (\thedeleq)}
  40. \newcommand{\deleqno}{\refstepcounter{deleq} \let\@currentlabel\thedeleq
  41.   \eqno (\thedeleq)}
  42. \newcommand{\reqno}[1]{\setcounter{Deleq}{-1}\refstepcounter{Deleq}
  43.    \eqno (\ref{#1}) }
  44. \newcommand{\rdeqno}[1]{\refstepcounter{Deleq}
  45.    \eqno (\ref{#1}\theDeleq)}
  46. \newcommand{\rndeqno}[1]{\setcounter{Deleq}{0}\refstepcounter{Deleq}
  47.    \eqno (\ref{#1}\theDeleq)}
  48. \newcommand{\nydeqno}{\stepcounter{equation}\stepcounter{deleq}}
  49. \newcommand{\heqno}{\stepcounter{equation}}
  50. \def\where{\let\@tempa\relax \def\@tempa{& & &}
  51.      \@tempa {\hbox to .01\p@{}\rlap{\hskip -\displaywidth where}}\cr}
  52. \def\rem#1{\let\@tempa\relax \def\@tempa{& & &}
  53.      \@tempa {\hbox to .01\p@{}\rlap{\hskip -\displaywidth #1}}\cr}
  54. \newenvironment{deqarr}{\stepcounter{equation}\stepcounter{deleq}
  55.   \let\@currentlabel\thedeleq
  56.   \global\@eqnswtrue\m@th
  57.   \global\@deqcnt\z@\tabskip\@centering\let\\\@deqncr
  58.   $$\halign to\displaywidth\bgroup\@eqnsel\hskip\@centering
  59.   $\displaystyle\tabskip\z@{##}$&\global\@deqcnt\@ne
  60.   \hskip 2\arraycolsep \hfil${##}$\hfil
  61.   &\global\@deqcnt\tw@ \hskip 2\arraycolsep $\displaystyle\tabskip\z@{##}$\hfil
  62.    \tabskip\@centering&\llap{##}\tabskip\z@\cr}
  63. {\@@deqncr\egroup
  64.       \global\advance\c@deleq\m@ne$$\global\@ignoretrue}
  65. \newenvironment{ddeqar}{\stepcounter{deleq}
  66.   \let\@currentlabel\thedeleq
  67.   \global\@eqnswtrue\m@th
  68.   \global\@deqcnt\z@\tabskip\@centering\let\\\@deqncr
  69.   $$\halign to\displaywidth\bgroup\@eqnsel\hskip\@centering
  70.   $\displaystyle\tabskip\z@{##}$&\global\@deqcnt\@ne
  71.   \hskip 2\arraycolsep \hfil${##}$\hfil
  72.   &\global\@deqcnt\tw@ \hskip 2\arraycolsep $\displaystyle\tabskip\z@{##}$\hfil
  73.    \tabskip\@centering&\llap{##}\tabskip\z@\cr}
  74. {\enddeqarr}
  75. \newenvironment{deqn}{$$\refstepcounter{equation}\stepcounter{deleq}
  76.    \let\@currentlabel\thedeleq}
  77.   {\eqno \hbox{\@deleqnnum} $$\global\@ignoretrue}
  78. \newenvironment{ddeqn}{$$\refstepcounter{deleq} \let\@currentlabel\thedeleq}
  79.   {\eqno \hbox{\@deleqnnum} $$\global\@ignoretrue}
  80. \DeclareOption{leqno}{\typeout{`leqno' implementation in progress.}
  81.   \def\@deleqnnum{\hbox to .01\p@{}\rlap{\reset@font\rmfamily
  82.         \hskip -\displaywidth(\thedeleq)}}
  83. \renewcommand{\nydeleqno}{\refstepcounter{equation}\refstepcounter{deleq}
  84.   \let\@currentlabel\thedeleq \leqno (\thedeleq)}
  85. \renewcommand{\deleqno}{\refstepcounter{deleq} \let\@currentlabel\thedeleq
  86.   \leqno (\thedeleq)}
  87. \renewcommand{\reqno}[1]{\setcounter{Deleq}{-1}\refstepcounter{Deleq}
  88.    \leqno (\ref{##1}) }
  89. \renewcommand{\rdeqno}[1]{\refstepcounter{Deleq}
  90.    \leqno (\ref{##1}\theDeleq)}
  91. \renewcommand{\rndeqno}[1]{\setcounter{Deleq}{0}\refstepcounter{Deleq}
  92.    \leqno (\ref{##1}\theDeleq)}
  93.   }
  94. \DeclareOption*{\typeout{`\CurrentOption '\space has no effect on deleq.}%
  95.   \OptionNotUsed}
  96. \ProcessOptions
  97. \endinput
  98. %% 
  99. %% End of file `deleq.sty'.
  100.